home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / prove < prev    next >
Encoding:
Text File  |  2009-10-01  |  7.7 KB  |  296 lines
  1. #!/usr/bin/perl
  2.     eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  3.     if $running_under_some_shell;
  4. #!/usr/bin/perl -w
  5.  
  6. use strict;
  7.  
  8. use Test::Harness;
  9. use Test::Harness::Util qw( all_in blibdirs shuffle );
  10.  
  11. use Getopt::Long;
  12. use Pod::Usage 1.12;
  13. use File::Spec;
  14.  
  15. use vars qw( $VERSION );
  16. $VERSION = '2.64';
  17.  
  18. my $shuffle = 0;
  19. my $dry = 0;
  20. my $blib = 0;
  21. my $lib = 0;
  22. my $recurse = 0;
  23. my @includes = ();
  24. my @switches = ();
  25.  
  26. # Allow cuddling the paths with the -I
  27. @ARGV = map { /^(-I)(.+)/ ? ($1,$2) : $_ } @ARGV;
  28.  
  29. # Stick any default switches at the beginning, so they can be overridden
  30. # by the command line switches.
  31. unshift @ARGV, split( ' ', $ENV{PROVE_SWITCHES} ) if defined $ENV{PROVE_SWITCHES};
  32.  
  33. Getopt::Long::Configure( 'no_ignore_case' );
  34. Getopt::Long::Configure( 'bundling' );
  35. GetOptions(
  36.     'b|blib'        => \$blib,
  37.     'd|debug'       => \$Test::Harness::debug,
  38.     'D|dry'         => \$dry,
  39.     'h|help|?'      => sub {pod2usage({-verbose => 1}); exit},
  40.     'H|man'         => sub {pod2usage({-verbose => 2}); exit},
  41.     'I=s@'          => \@includes,
  42.     'l|lib'         => \$lib,
  43.     'perl=s'        => \$ENV{HARNESS_PERL},
  44.     'r|recurse'     => \$recurse,
  45.     's|shuffle'     => \$shuffle,
  46.     't'             => sub { unshift @switches, '-t' }, # Always want -t up front
  47.     'T'             => sub { unshift @switches, '-T' }, # Always want -T up front
  48.     'w'             => sub { push @switches, '-w' },
  49.     'W'             => sub { push @switches, '-W' },
  50.     'strap=s'       => \$ENV{HARNESS_STRAP_CLASS},
  51.     'timer'         => \$Test::Harness::Timer,
  52.     'v|verbose'     => \$Test::Harness::verbose,
  53.     'V|version'     => sub { print_version(); exit; },
  54. ) or exit 1;
  55.  
  56. $ENV{TEST_VERBOSE} = 1 if $Test::Harness::verbose;
  57.  
  58. # Handle blib includes
  59. if ( $blib ) {
  60.     my @blibdirs = blibdirs();
  61.     if ( @blibdirs ) {
  62.         unshift @includes, @blibdirs;
  63.     }
  64.     else {
  65.         warn "No blib directories found.\n";
  66.     }
  67. }
  68.  
  69. # Handle lib includes
  70. if ( $lib ) {
  71.     unshift @includes, 'lib';
  72. }
  73.  
  74. # Build up TH switches
  75. push( @switches, map { /\s/ && !/^".*"$/ ? qq["-I$_"] : "-I$_" } @includes );
  76. $Test::Harness::Switches = join( ' ', @switches );
  77. print "# \$Test::Harness::Switches: $Test::Harness::Switches\n" if $Test::Harness::debug;
  78.  
  79. @ARGV = File::Spec->curdir unless @ARGV;
  80. my @argv_globbed;
  81. my @tests;
  82. if ( $] >= 5.006001 ) {
  83.     require File::Glob;
  84.     @argv_globbed = map { File::Glob::bsd_glob($_) } @ARGV;
  85. }
  86. else {
  87.     @argv_globbed = map { glob } @ARGV;
  88. }
  89.  
  90. for ( @argv_globbed ) {
  91.     push( @tests, -d $_ ? all_in( { recurse => $recurse, start => $_ } ) : $_ )
  92. }
  93.  
  94. if ( @tests ) {
  95.     shuffle(@tests) if $shuffle;
  96.     if ( $dry ) {
  97.         print join( "\n", @tests, '' );
  98.     }
  99.     else {
  100.         print "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
  101.         runtests(@tests);
  102.     }
  103. }
  104.  
  105. sub print_version {
  106.     printf( "prove v%s, using Test::Harness v%s and Perl v%vd\n",
  107.         $VERSION, $Test::Harness::VERSION, $^V );
  108. }
  109.  
  110. __END__
  111.  
  112. =head1 NAME
  113.  
  114. prove -- A command-line tool for running tests against Test::Harness
  115.  
  116. =head1 SYNOPSIS
  117.  
  118. prove [options] [files/directories]
  119.  
  120. =head1 OPTIONS
  121.  
  122.     -b, --blib      Adds blib/lib to the path for your tests, a la "use blib"
  123.     -d, --debug     Includes extra debugging information
  124.     -D, --dry       Dry run: Show the tests to run, but don't run them
  125.     -h, --help      Display this help
  126.     -H, --man       Longer manpage for prove
  127.     -I              Add libraries to @INC, as Perl's -I
  128.     -l, --lib       Add lib to the path for your tests
  129.         --perl      Sets the name of the Perl executable to use
  130.     -r, --recurse   Recursively descend into directories
  131.     -s, --shuffle   Run the tests in a random order
  132.         --strap     Define strap class to use
  133.     -T              Enable tainting checks
  134.     -t              Enable tainting warnings
  135.         --timer     Print elapsed time after each test file
  136.     -v, --verbose   Display standard output of test scripts while running them
  137.     -V, --version   Display version info
  138.  
  139. Single-character options may be stacked.  Default options may be set by
  140. specifying the PROVE_SWITCHES environment variable.
  141.  
  142. =head1 OVERVIEW
  143.  
  144. F<prove> is a command-line interface to the test-running functionality
  145. of C<Test::Harness>.  With no arguments, it will run all tests in the
  146. current directory.
  147.  
  148. Shell metacharacters may be used with command lines options and will be exanded 
  149. via C<File::Glob::bsd_glob>.
  150.  
  151. =head1 PROVE VS. "MAKE TEST"
  152.  
  153. F<prove> has a number of advantages over C<make test> when doing development.
  154.  
  155. =over 4
  156.  
  157. =item * F<prove> is designed as a development tool
  158.  
  159. Perl users typically run the test harness through a makefile via
  160. C<make test>.  That's fine for module distributions, but it's
  161. suboptimal for a test/code/debug development cycle.
  162.  
  163. =item * F<prove> is granular 
  164.  
  165. F<prove> lets your run against only the files you want to check.
  166. Running C<prove t/live/ t/master.t> checks every F<*.t> in F<t/live>,
  167. plus F<t/master.t>.
  168.  
  169. =item * F<prove> has an easy verbose mode
  170.  
  171. F<prove> has a C<-v> option to see the raw output from the tests.
  172. To do this with C<make test>, you must set C<HARNESS_VERBOSE=1> in
  173. the environment.
  174.  
  175. =item * F<prove> can run under taint mode
  176.  
  177. F<prove>'s C<-T> runs your tests under C<perl -T>, and C<-t> runs them
  178. under C<perl -t>.
  179.  
  180. =item * F<prove> can shuffle tests
  181.  
  182. You can use F<prove>'s C<--shuffle> option to try to excite problems
  183. that don't show up when tests are run in the same order every time.
  184.  
  185. =item * F<prove> doesn't rely on a make tool
  186.  
  187. Not everyone wants to write a makefile, or use L<ExtUtils::MakeMaker>
  188. to do so.  F<prove> has no external dependencies.
  189.  
  190. =item * Not everything is a module
  191.  
  192. More and more users are using Perl's testing tools outside the
  193. context of a module distribution, and may not even use a makefile
  194. at all.
  195.  
  196. =back
  197.  
  198. =head1 COMMAND LINE OPTIONS
  199.  
  200. =head2 -b, --blib
  201.  
  202. Adds blib/lib to the path for your tests, a la "use blib".
  203.  
  204. =head2 -d, --debug
  205.  
  206. Include debug information about how F<prove> is being run.  This
  207. option doesn't show the output from the test scripts.  That's handled
  208. by -v,--verbose.
  209.  
  210. =head2 -D, --dry
  211.  
  212. Dry run: Show the tests to run, but don't run them.
  213.  
  214. =head2 -I
  215.  
  216. Add libraries to @INC, as Perl's -I.
  217.  
  218. =head2 -l, --lib
  219.  
  220. Add C<lib> to @INC.  Equivalent to C<-Ilib>.
  221.  
  222. =head2 --perl
  223.  
  224. Sets the C<HARNESS_PERL> environment variable, which controls what
  225. Perl executable will run the tests.
  226.  
  227. =head2 -r, --recurse
  228.  
  229. Descends into subdirectories of any directories specified, looking for tests.
  230.  
  231. =head2 -s, --shuffle
  232.  
  233. Sometimes tests are accidentally dependent on tests that have been
  234. run before.  This switch will shuffle the tests to be run prior to
  235. running them, thus ensuring that hidden dependencies in the test
  236. order are likely to be revealed.  The author hopes the run the
  237. algorithm on the preceding sentence to see if he can produce something
  238. slightly less awkward.
  239.  
  240. =head2 --strap
  241.  
  242. Sets the HARNESS_STRAP_CLASS variable to set which Test::Harness::Straps
  243. variable to use in running the tests.
  244.  
  245. =head2 -t
  246.  
  247. Runs test programs under perl's -t taint warning mode.
  248.  
  249. =head2 -T
  250.  
  251. Runs test programs under perl's -T taint mode.
  252.  
  253. =head2 --timer
  254.  
  255. Print elapsed time after each test file
  256.  
  257. =head2 -v, --verbose
  258.  
  259. Display standard output of test scripts while running them.  Also sets
  260. TEST_VERBOSE in case your tests rely on them.
  261.  
  262. =head2 -V, --version
  263.  
  264. Display version info.
  265.  
  266. =head1 BUGS
  267.  
  268. Please use the CPAN bug ticketing system at L<http://rt.cpan.org/>.
  269. You can also mail bugs, fixes and enhancements to 
  270. C<< <bug-test-harness@rt.cpan.org> >>.
  271.  
  272. =head1 TODO
  273.  
  274. =over 4
  275.  
  276. =item *
  277.  
  278. Shuffled tests must be recreatable
  279.  
  280. =back
  281.  
  282. =head1 AUTHORS
  283.  
  284. Andy Lester C<< <andy at petdance.com> >>
  285.  
  286. =head1 COPYRIGHT
  287.  
  288. Copyright 2004-2006 by Andy Lester C<< <andy at petdance.com> >>.
  289.  
  290. This program is free software; you can redistribute it and/or 
  291. modify it under the same terms as Perl itself.
  292.  
  293. See L<http://www.perl.com/perl/misc/Artistic.html>.
  294.  
  295. =cut
  296.